home *** CD-ROM | disk | FTP | other *** search
/ How Would You Survive? / How Would You Survive (1995)(Grolier)[Mac-PC].iso / mac / EGYPTW.DIR / 01713_Script_Sickness < prev    next >
Text File  |  1995-09-13  |  3KB  |  129 lines
  1. global gQuest, gBeenClicked
  2.  
  3. on ESickRollovers
  4.   set gBeenClicked = 0
  5.   if (not(CheckClickedStatus(gQuest))) then
  6.     if rollover(6) then
  7.       repeat while rollover(6) 
  8.         EgyptCursor
  9.         puppetsprite 28, true
  10.         set the locH of sprite 28 to 468
  11.         set the locV of sprite 28 to 168
  12.         updatestage
  13.         if the mousedown then
  14.           set GBeenClicked = 1
  15.         else
  16.           if gBeenClicked = 1 then
  17.             repeat while gBeenClicked = 1
  18.               AnimateToSlowPauseFrom 6, 781, 2, "SE380200.AIF", 1
  19.             end repeat
  20.           end if
  21.         end if
  22.       end repeat
  23.       set the locH of sprite 28 to 968
  24.       puppetsprite 28, false
  25.       updatestage
  26.     else
  27.       if rollover(7) then
  28.         ArrowCursor
  29.         repeat while rollover(7)
  30.           EgyptCursor
  31.           puppetsprite 10, true
  32.           set the locH of sprite 10 to 541
  33.           set the locV of sprite 10 to 363
  34.           updatestage
  35.           if the mousedown then
  36.             set GBeenClicked = 1
  37.           else
  38.             if gBeenClicked = 1 then
  39.               repeat while gBeenClicked = 1
  40.                 FeedTheSick 
  41.               end repeat
  42.             end if
  43.           end if
  44.         end repeat
  45.         set the locH of sprite 10 to 941
  46.         puppetsprite 10, false
  47.         updatestage
  48.       else
  49.         if rollover(8) then
  50.           ArrowCursor
  51.           repeat while rollover(8)
  52.             set the locH of sprite 9 to 465
  53.             set the locV of sprite 9 to 304
  54.             updatestage
  55.           end repeat
  56.           set the locH of sprite 9 to 965
  57.           updatestage
  58.         else
  59.           if rollover(11) then
  60.             ArrowCursor
  61.             repeat while rollover(11)
  62.               set the locH of sprite 12 to 269
  63.               set the locV of sprite 12 to 363
  64.               updatestage
  65.             end repeat
  66.             set the locH of sprite 12 to 969
  67.             updatestage
  68.           else
  69.             if rollover(13) then
  70.               ArrowCursor
  71.               repeat while rollover(13)
  72.                 set the locH of sprite 14 to 391
  73.                 set the locV of sprite 14 to 221
  74.                 updatestage
  75.               end repeat
  76.               set the locH of sprite 14 to 991
  77.               updatestage
  78.             else
  79.               if rollover(41) then
  80.                 HandCursor
  81.               else
  82.                 if rollover(42) then
  83.                   HandCursor
  84.                 else
  85.                   ArrowCursor
  86.                 end if
  87.               end if
  88.             end if
  89.           end if
  90.         end if
  91.       end if
  92.     end if
  93.   end if
  94.   RandomQuestion(gQuest)
  95. end
  96.  
  97. on FeedTheSick
  98.   ArrowCursor
  99.   set gAnimationcast1 = 784
  100.   set count = 0
  101.   puppetsound "SE380501.AIF"
  102.   repeat while count < 2 and (the mouseUp)
  103.     set the castnum of sprite 7 = gAnimationcast1 + 1
  104.     updatestage
  105.     wait .5
  106.     if (the mousedown) then 
  107.       exit repeat
  108.     end if
  109.     set the castnum of sprite 7 = gAnimationcast1 + 2
  110.     updatestage
  111.     if (the mousedown) then 
  112.       exit repeat
  113.     end if
  114.     wait 1
  115.     set the castnum of sprite 7 = gAnimationcast1 + 1
  116.     updatestage
  117.     if (the mousedown) then 
  118.       exit repeat
  119.     end if
  120.     wait .5
  121.     set count = count + 1
  122.   end repeat
  123.   set the castnum of sprite 7 = gAnimationcast1
  124.   updatestage
  125.   sound fadeout 1, 2*60
  126.   set gBeenClicked = 0
  127. end
  128.  
  129.